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FIG. 13 



m=20;delays=30;sig=.00;n=1 70; 

y=filter(h,1,r)+sig*n; 

htp1=ht(1:delays+m); 

pn=eye(m); 

L=length(ht); 

ind=delays+m:m:n; 

lind=length(ind); 

kg=zeros(m,(lind-1) *m+1); 

for j=1:lind 

ind0(1:m,j)=[(j-1) *m+1:j *m] +delays; 
end 

htemp=ht(indO); 

for k-200:10000 
ind1=k-ind0; 

[htemp(:,1)kO l pn,an]=rls1(pn,y(k-1),r(ind1(: l 1)),htemp(:,1) ) 1); 

for l=(ind-1) *m:-1:1 

kg(:.l+1)=kg(:,l): 

end 

kg(:,1)=k0; 
for j=2:lind 

htemp(:j)=htemp(:j)+kg(: l G-1)*m+1)*(an-htemp(:j) 1 *r(ind1(: j))); 
end 
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